home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 February / 64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64 / magic code (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 poke53280,0:poke53281,0:bs=55457:print"[147] [209]  [209]  [159][209]  [156][209]  [209]  [209]  [158][209]  [129][209] [155] farb-"
  2. 2 print" 1  2  3  4  5  6  7  8  auswahl":print:bc=1185:s=0:a=0:for i=1to4
  3. 3 print"[213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201] [152][213][195][201][155]":print"[194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194]";
  4. 4 print" [152][194][209][194][155]":print"[202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203] [152][202][195][203][155]":next
  5. 5 print"[152][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201]":print"[202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203]"
  6. 6 print"[155] richtige farbe  = [209]":print"[155] richtige stelle = [152][209]"
  7. 7 fori=1to4:n(i)=int(rnd(1)*8)+1:next:ifn(1)=n(2)orn(1)=n(3)orn(1)=n(4)then7
  8. 8 ifn(2)=n(3)orn(2)=n(4)orn(3)=n(4)then7
  9. 9 z=0:a=a+1:for x=1to4:ifa>10then19
  10. 10 get f$(x):if f$(x)<chr$(49)or f$(x)>chr$(56)then 10
  11. 11 pokebc+z,81:pokebs+z,val(f$(x)):z=z+120:next:gosub12:bc=bc+3:bs=bs+3:goto9
  12. 12 p=0:for i=1 to 4:if n(i)=val(f$(i))then p=p+1:if p=4then19
  13. 13 next:q=0:for i=1 to 4
  14. 14 if n(i)=val(f$(1))or n(i)=val(f$(2))or n(i)=val(f$(3))thengosub18:goto16
  15. 15 if n(i)=val(f$(4))then gosub 18
  16. 16 next:q=q-p:poke214,17:poke211,s:sys58640:print""q:poke214,19:poke211,s:sys58640:print"[152]"p
  17. 17 s=s+3:return:rem*** michael grochowski  1989 ***
  18. 18 q=q+1:return
  19. 19 poke55488,n(1):poke55608,n(2):poke55728,n(3):poke55848,n(4)
  20. 20 print"[158] noch einmal=space ":poke198,0:wait198,1:geta$:ifa$=chr$(32)thenrun
  21.